From b43561e06ddeff77d3a4cad69b44e3e287b38f72 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 4 Feb 2009 02:01:18 +0000 Subject: [PATCH] (describe-char): Check font-object by fontp. --- lisp/descr-text.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 96ef2458e42..89325cca22a 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -630,7 +630,7 @@ as well as widgets, buttons, overlays, and text properties." (nglyphs (lgstring-glyph-len gstring)) (i 0) glyph) - (if font + (if (fontp font) (progn (insert " using this font:\n " (symbol-name (font-get font :type)) -- 2.30.2